Voorbeeld met de eigenschappen EnterKeyBehavior en MultiLine

In het volgende voorbeeld wordt de eigenschap EnterKeyBehavior gebruikt om de werking van de ENTER-toets in een TextBox te bepalen. In dit voorbeeld kan de gebruiker een TextBox voor ΘΘn regel of voor meerdere regels opgeven.

Als u dit voorbeeld wilt gebruiken, kopieert u de voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een TextBox met de naam TextBox1.
  
  
• Twee besturingselementen ToggleButton met de namen ToggleButton1 en ToggleButton2.

Private Sub UserForm_Initialize()
    TextBox1.EnterKeyBehavior = True
    ToggleButton1.Caption = "EnterKeyBehavior is True"
    ToggleButton1.Width = 70
    ToggleButton1.Value = True
    
    TextBox1.MultiLine = True
    ToggleButton2.Caption = "MultiLine is True"
    ToggleButton2.Width = 70
    ToggleButton2.Value = True
    
    TextBox1.Height = 100
    TextBox1.WordWrap = True
    TextBox1.Text = "Type your text here. If " _
        & "EnterKeyBehavior is True, " _
        & "press Enter to start a new line. Otherwise, press SHIFT+ENTER."
End Sub

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        TextBox1.EnterKeyBehavior = True
        ToggleButton1.Caption = _
            "EnterKeyBehavior is True"
    Else
        TextBox1.EnterKeyBehavior = False
        ToggleButton1.Caption = _
            "EnterKeyBehavior is False"
    End If
End Sub

Private Sub ToggleButton2_Click()
    If ToggleButton2.Value = True Then
        TextBox1.MultiLine = True
        ToggleButton2.Caption = "MultiLine TextBox"
    Else
        TextBox1.MultiLine = False
        ToggleButton2.Caption = "Single-line TextBox"
    End If
End Sub